home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / cr.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.4 KB  |  99 lines
  1. on hPressButton
  2.   global gLastSprite
  3.   set vSprite to the clickOn
  4.   set vCastNo to the castNum of sprite vSprite
  5.   set vCastNam to the name of cast vCastNo
  6.   puppetSprite(vSprite, 1)
  7.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  8.     set the castNum of sprite vSprite to vCastNo + 1
  9.   else
  10.     if vCastNam contains "ROLLOVER" then
  11.       set the castNum of sprite vSprite to vCastNo + 1
  12.     else
  13.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  14.     end if
  15.   end if
  16.   updateStage()
  17.   repeat while the stillDown
  18.     hStillDownScript(vSprite)
  19.   end repeat
  20.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  21.     set the castNum of sprite vSprite to vCastNo
  22.   else
  23.     set the castNum of sprite vSprite to the number of cast vCastNam
  24.   end if
  25.   puppetSprite(vSprite, 0)
  26.   updateStage()
  27.   if the mouseCast = the castNum of sprite vSprite then
  28.     return 1
  29.   else
  30.     return 0
  31.   end if
  32. end
  33.  
  34. on hRolloverScript vFrameLabel
  35.   global gLastSprite
  36.   set vNowSprite to 0
  37.   if vFrameLabel = "Abuse" then
  38.     if rollOver(21) then
  39.       set vNowSprite to 21
  40.     end if
  41.   end if
  42.   if not (vNowSprite = 0) then
  43.     set vCastNo to the castNum of sprite vNowSprite
  44.     set vCastName to the name of cast vCastNo
  45.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  46.       set vNowSprite to 0
  47.     end if
  48.   end if
  49.   if not (vNowSprite = 0) then
  50.     hRollOverOn(vNowSprite)
  51.     set gLastSprite to vNowSprite
  52.   else
  53.     puppetSprite(gLastSprite, 0)
  54.     set gLastSprite to 0
  55.   end if
  56. end
  57.  
  58. on hRollOverOn vNowSprite
  59.   global gLastSprite
  60.   if not (gLastSprite = vNowSprite) then
  61.     set vCastNo to the castNum of sprite vNowSprite
  62.     set vCastNam to the name of cast vCastNo
  63.     puppetSprite(vNowSprite, 1)
  64.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  65.     if not (gLastSprite = 0) then
  66.       puppetSprite(gLastSprite, 0)
  67.       updateStage()
  68.     end if
  69.   else
  70.     nothing()
  71.   end if
  72. end
  73.  
  74. on hStillDownScript aSprite
  75.   if aSprite = 8 then
  76.     adjustVRPos(0, 10, 0)
  77.   else
  78.     if aSprite = 9 then
  79.       adjustVRPos(0, -10, 0)
  80.     else
  81.       if aSprite = 10 then
  82.         adjustVRPos(10, 0, 0)
  83.       else
  84.         if aSprite = 11 then
  85.           adjustVRPos(-10, 0, 0)
  86.         else
  87.           if aSprite = 12 then
  88.             adjustVRPos(0, 0, 10)
  89.           else
  90.             if aSprite = 13 then
  91.               adjustVRPos(0, 0, -10)
  92.             end if
  93.           end if
  94.         end if
  95.       end if
  96.     end if
  97.   end if
  98. end
  99.